﻿Public Class About

    Private Sub About_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ax_About.Movie = Application.StartupPath + "\9.swf"
        lbAbout.Text = "Đồ án làm theo yêu cầu của giáo viên lí thuyết" & vbNewLine _
           & "Là đồ án cuối kì môn học Lập Trình Ứng Dụng Quản Lí 1" & vbNewLine _
           & "Do hai Sinh Viên:" & vbNewLine & _
           "Lại Minh Lực 0966078 và" & vbNewLine & _
           "Trần Văn Điền 0966034 thực hiện" & vbNewLine _
           & "Trong chương trình có sử dụng thư viện giao diện" & vbNewLine _
           & "của DevExpress , DotNetbar, Windows Media Player" & vbNewLine _
           & "và Flash player" & vbNewLine _
           & "Rất mong được sự góp ý của thầy và các bạn" & vbNewLine

        lbAbout.BackColor = Color.Transparent
        'Dim g As New ClsAeroGlass
        'g.TopBarSize = 300
        'g.ShowEffect(Me, lbAbout)
    End Sub
End Class